home *** CD-ROM | disk | FTP | other *** search
- object FormAnimMi: TFormAnimMi
- Left = 194
- Top = 116
- Width = 596
- Height = 305
- Caption = 'Anim MI'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 8
- Top = 16
- Width = 44
- Height = 13
- Caption = 'Objects'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label2: TLabel
- Left = 440
- Top = 16
- Width = 58
- Height = 13
- Caption = 'Interfaces'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object BtnKind: TButton
- Left = 8
- Top = 40
- Width = 145
- Height = 25
- Caption = 'Animals kind'
- TabOrder = 0
- OnClick = BtnKindClick
- end
- object BtnFly: TButton
- Left = 8
- Top = 72
- Width = 145
- Height = 25
- Caption = 'Animals fly'
- TabOrder = 1
- OnClick = BtnFlyClick
- end
- object Memo1: TMemo
- Left = 160
- Top = 16
- Width = 265
- Height = 249
- ScrollBars = ssVertical
- TabOrder = 2
- end
- object BtnSwim: TButton
- Left = 8
- Top = 104
- Width = 145
- Height = 25
- Caption = 'Animals swim '
- TabOrder = 3
- OnClick = BtnSwimClick
- end
- object BtnWalk: TButton
- Left = 8
- Top = 136
- Width = 145
- Height = 25
- Caption = 'Animals walk'
- TabOrder = 4
- OnClick = BtnWalkClick
- end
- object BtnDuck: TButton
- Left = 8
- Top = 184
- Width = 145
- Height = 25
- Caption = 'As Duck'
- TabOrder = 5
- OnClick = BtnDuckClick
- end
- object BtnKindI: TButton
- Left = 440
- Top = 40
- Width = 145
- Height = 25
- Caption = 'Animals kind'
- TabOrder = 6
- OnClick = BtnKindIClick
- end
- object BtnFlyI: TButton
- Left = 440
- Top = 72
- Width = 145
- Height = 25
- Caption = 'Animals fly'
- TabOrder = 7
- OnClick = BtnFlyIClick
- end
- object BtnSwimI: TButton
- Left = 440
- Top = 104
- Width = 145
- Height = 25
- Caption = 'Animals swim '
- TabOrder = 8
- OnClick = BtnSwimIClick
- end
- object BtnWalkI: TButton
- Left = 440
- Top = 136
- Width = 145
- Height = 25
- Caption = 'Animals walk'
- TabOrder = 9
- OnClick = BtnWalkIClick
- end
- object BtnMammalsI: TButton
- Left = 440
- Top = 184
- Width = 145
- Height = 25
- Caption = 'List Mammals'
- TabOrder = 10
- OnClick = BtnMammalsIClick
- end
- end
-